home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / Intro to HyperCard 2.0 / card_11496.txt < prev    next >
Encoding:
Text File  |  1990-08-24  |  2.0 KB  |  85 lines
  1. -- card: 11496 from stack: in.0
  2. -- bmap block id: 11556
  3. -- flags: 0000
  4. -- background id: 15491
  5. -- name: H table
  6. ----- HyperTalk script -----
  7. on goPrev
  8.   global theFrame,whatSpace
  9.   set cursor to none
  10.   put 8 into theFrame
  11.   hide cd fld "text1"
  12.   lock screen
  13.   set lockmessages to true
  14.   go cd "Introduction to"
  15.   set lockmessages to false
  16.   show btn "HMask"
  17.   put empty into cd fld "HFld"
  18.   put "A" into cd fld "HFld2"
  19.   put whatSpace into tempSpace
  20.   repeat for 7
  21.     delete last char of tempSpace
  22.   end repeat
  23.   put tempSpace & "√ßΔí" & return & tempSpace & "‚àÇŒ©" into cd fld "manFld"
  24.   wait 30
  25.   show cd fld "text7"
  26. end goPrev
  27.  
  28.  
  29.  
  30. -- part 1 (field)
  31. -- low flags: 81
  32. -- high flags: 0000
  33. -- rect: left=329 top=80 right=202 bottom=454
  34. -- title width / last selected line: 0
  35. -- icon id / first selected line: 0 / 0
  36. -- text alignment: 0
  37. -- font id: 174
  38. -- text size: 14
  39. -- style flags: 0
  40. -- line height: 16
  41. -- part name: text1
  42.  
  43.  
  44. -- part 3 (button)
  45. -- low flags: 00
  46. -- high flags: 0000
  47. -- rect: left=474 top=195 right=224 bottom=506
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 24471 / 24471
  50. -- text alignment: 1
  51. -- font id: 0
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: MapBtn
  56. ----- HyperTalk script -----
  57. -- Go to the Map stack.  "CameFrom" holds the name of this cd
  58. -- so the Map can hilite the cd the user came from.
  59.  
  60. on mouseUp
  61.   global DisSpeed, CameFrom, MapMode
  62.   set the hilite of me to true
  63.   lock Screen
  64.   set the hilite of me to false
  65.   put "Introduction to" into CameFrom
  66.   put last char of the icon of bg btn "section" into sectionNum
  67.   if sectionNum > 3 then put 2 into sectionNum
  68.   put "section" && sectionNum & ":" into SubCd
  69.   visual DisSpeed
  70.   if MapMode is "graph" then
  71.     go to cd SubCd of stack "‚Ä¢HC 2.0-3"
  72.     HiliteMap
  73.   else
  74.     go to cd "indexmap" of stack "‚Ä¢HC 2.0-3"
  75.   end if
  76.   unlock screen with DisSpeed
  77. end mouseUp
  78.  
  79.  
  80.  
  81. -- part contents for card part 1
  82. ----- text -----
  83. And tables make me think of the big table in the house where I grew up...
  84.  
  85. (Click the right arrow).